
Namespace _2bMatesSite.Controls
	Imports System
	Imports System.Data
	Imports System.Drawing
	Imports System.Web
	Imports System.Web.UI.WebControls
	Imports System.Web.UI.HtmlControls

	''' <summary>
	'''		Summary description for UserMsgTabs.
	''' </summary>
	Public Partial Class UserMsgTabs
		Inherits System.Web.UI.UserControl
		Private pageName As String = ""
		Private activeTab As Integer = -1
		Protected boxType As String = ""

		Public Property PageName() As String
			Get
				Return pageName
			End Get
			Set
				pageName = value
			End Set
		End Property

		Public Property ActiveTab() As Integer
			Get
				Return activeTab
			End Get
			Set
				activeTab = value
			End Set
		End Property

		Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
			' Put user code to initialize the page here

			tdInboxLink.Visible = False
			tdInboxLinkOn.Visible = False
			tdInboxLabelOn.Visible = False
			tdSentLink.Visible = False
			tdSentLinkOn.Visible = False
			tdSentLabelOn.Visible = False
			tdTrashLink.Visible = False
			tdTrashLinkOn.Visible = False
			tdTrashLabelOn.Visible = False
			trLegend.Visible = False


			Select Case pageName
				Case Constants.INBOX
					tdInboxLabelOn.Visible = True
					tdSentLink.Visible = True
					tdTrashLink.Visible = True
					trLegend.Visible = True
					Exit Select
				Case Constants.SENT_MESSAGE
					tdInboxLink.Visible = True
					tdSentLabelOn.Visible = True
					tdTrashLink.Visible = True
					trLegend.Visible = True
					Exit Select
				Case Constants.TRASH
					tdInboxLink.Visible = True
					tdSentLink.Visible = True
					tdTrashLabelOn.Visible = True
					trLegend.Visible = True
					Exit Select
				Case Constants.VIEW_MESSAGE
					trLegend.Visible = True
					Select Case activeTab
						Case 1
							tdInboxLinkOn.Visible = True
							tdSentLink.Visible = True
							tdTrashLink.Visible = True
							Exit Select
						Case 2
							tdInboxLink.Visible = True
							tdSentLinkOn.Visible = True
							tdTrashLink.Visible = True
							Exit Select
						Case 3
							tdInboxLink.Visible = True
							tdSentLink.Visible = True
							tdTrashLinkOn.Visible = True
							Exit Select
						Case Else
							tdInboxLink.Visible = True
							tdSentLink.Visible = True
							tdTrashLink.Visible = True
							Exit Select
					End Select

					Exit Select
				Case Else
					tdInboxLink.Visible = True
					tdSentLink.Visible = True
					tdTrashLink.Visible = True
					Exit Select
			End Select
		End Sub

		#region Web Form Designer generated code
		Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub

		''' <summary>
		'''		Required method for Designer support - do not modify
		'''		the contents of this method with the code editor.
		''' </summary>
		Private Sub InitializeComponent()

		End Sub
#End Region
	End Class
End Namespace






